home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / x / volume9 / acm / part05 < prev    next >
Encoding:
Internet Message Format  |  1990-10-09  |  36.1 KB
  1. Path: uunet!snorkelwacker!apple!netcom!amdcad!sun!mipsdal.mips.com
  2. From: riley@mipsdal.mips.com (Riley Rainey)
  3. Newsgroups: comp.sources.x
  4. Subject: v09i073: acm, X aerial combat simulation, Part05/05
  5. Message-ID: <143452@sun.Eng.Sun.COM>
  6. Date: 7 Oct 90 18:13:26 GMT
  7. References: <csx-09i069:acm@uunet.UU.NET>
  8. Sender: news@sun.Eng.Sun.COM
  9. Lines: 1417
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: riley@mipsdal.mips.com (Riley Rainey)
  13. Posting-number: Volume 9, Issue 73
  14. Archive-name: acm/part05
  15.  
  16. echo x - ./fsim/server.c
  17. sed 's/^X//' >./fsim/server.c <<'*-*-END-of-./fsim/server.c-*-*'
  18. X/*
  19. X *    xflight : an aerial combat simulator for X
  20. X *
  21. X *    Written by Riley Rainey,  riley@mips.com
  22. X *
  23. X *    Permission to use, copy, modify and distribute (without charge) this
  24. X *    software, documentation, images, etc. is granted, provided that this 
  25. X *    comment and the author's name is retained.
  26. X *
  27. X */
  28. X 
  29. X#include "manifest.h"
  30. X#include <sys/types.h>
  31. X#include <stdio.h>
  32. X#include <pwd.h>
  33. X#include <signal.h>
  34. X#include <sys/socket.h>
  35. X#include <sys/ioctl.h>
  36. X#include <sys/time.h>
  37. X#include <netinet/in.h>
  38. X#include <netdb.h>
  39. X#include <setjmp.h>
  40. X
  41. Xextern struct servent *getservent();
  42. Xint sdebug = 1;
  43. Xint listen_socket;
  44. X
  45. Xvoid parseinfo (s, a, b, c)
  46. Xchar *s, *a, *b, *c; {
  47. X
  48. X    char    *p;
  49. X
  50. X    for (p=a; *s; ++s, ++p)
  51. X        if ((*p = *s) == ' ') {
  52. X            *p = '\0';
  53. X            break;
  54. X        }
  55. X
  56. X    ++ s;
  57. X
  58. X    for (p=b; *s; ++s, ++p)
  59. X        if ((*p = *s) == ' ') {
  60. X            *p = '\0';
  61. X            break;
  62. X        }
  63. X
  64. X    ++ s;
  65. X
  66. X    strcpy (c, s);
  67. X
  68. X    return;
  69. X}
  70. X
  71. Xmain (argc, argv)
  72. Xint    argc;
  73. Xchar    *argv[]; {
  74. X
  75. X    struct sockaddr_in sin;
  76. X    struct    servent *sp;
  77. X    int    on = 1;
  78. X    int    i, background = 0;
  79. X
  80. X/*
  81. X *  parse arguments
  82. X */
  83. X
  84. X    for (i=1; i<argc; ++i) {
  85. X
  86. X        if (*argv[i] == '-')
  87. X            switch (*(argv[i]+1)) {
  88. X
  89. X            case 'b':
  90. X                background = 1;
  91. X                break;
  92. X
  93. X            default:
  94. X                fprintf (stderr, "Invalid switch \"%s\"\n", argv[i]);
  95. X                break;
  96. X            }
  97. X    }
  98. X
  99. X    if (sdebug) {
  100. X/*
  101. X        if ((sp = getservbyname ("acm", "tcp");
  102. X            fprintf (stderr, "can't find acm service\n");
  103. X            exit (1);
  104. X        }
  105. X*/
  106. X
  107. X        if ((listen_socket = socket (AF_INET, SOCK_STREAM, 0)) < 0) {
  108. X            perror ("socket");
  109. X            exit (1);
  110. X        }
  111. X
  112. X        sin.sin_family = AF_INET;
  113. X        sin.sin_addr.s_addr = INADDR_ANY;
  114. X        sin.sin_port = htons(ACM_PORT);
  115. X
  116. X        if (bind (listen_socket, &sin, sizeof(sin)) < 0) {
  117. X            perror ("bind");
  118. X            exit (1);
  119. X        }
  120. X    }
  121. X    else {
  122. X        listen_socket = 0;        /* inetd sets this up for us */
  123. X/*        freopen ("/people/riley/acm.error", "a", stderr); */
  124. X    }
  125. X
  126. X        (void) setsockopt(listen_socket, SOL_SOCKET, SO_REUSEADDR,
  127. X        (char *) &on, sizeof on);
  128. X    (void) setsockopt(listen_socket, SOL_SOCKET, SO_KEEPALIVE,
  129. X        (char *) &on, sizeof on);
  130. X    ioctl(listen_socket, FIONBIO, (char *) &on);
  131. X
  132. X    if (listen (listen_socket, 5) < 0) {
  133. X        perror ("listen");
  134. X        close (listen_socket);
  135. X        exit (1);
  136. X    }
  137. X
  138. X    if (background)
  139. X#ifdef SYSV
  140. X        setpgrp (1);
  141. X#else
  142. X        setpgrp (0, 1);
  143. X#endif
  144. X
  145. X    init ();
  146. X    input();
  147. X
  148. X}
  149. X
  150. Xint peerdied = 0;
  151. X
  152. Xdeadpeer () {
  153. X    fprintf (stderr, "SIGPIPE\n");
  154. X    peerdied = 1;
  155. X}
  156. X
  157. Xstruct    sigvec    alrm, pipe;
  158. Xint doUpdate = 0;
  159. X
  160. Xmyalarm () {
  161. X    doUpdate++;
  162. X    sigvec (SIGALRM, &alrm, (struct sigvec *) 0);
  163. X}
  164. X
  165. Xinput () {
  166. X
  167. X    fd_set    fdset, ofdset;
  168. X    int    nplayers = 0, news = -1, playerchange = 0, n, pno, addrlen;
  169. X    int    on = 1;
  170. X    struct    sockaddr addr;
  171. X    struct    itimerval update;
  172. X    char    *bp, buf[128], name[64], display[64], args[128];
  173. X
  174. X    alrm.sv_handler = myalarm;
  175. X    alrm.sv_mask = 0;
  176. X    alrm.sv_flags = SV_INTERRUPT;
  177. X    sigvec (SIGALRM, &alrm, (struct sigvec *) 0);
  178. X
  179. X/*
  180. X *  Set real time clock to interrupt us every UPDATE_INTERVAL usecs.
  181. X */
  182. X
  183. X    update.it_interval.tv_sec = 0;
  184. X    update.it_interval.tv_usec = UPDATE_INTERVAL;
  185. X    update.it_value.tv_sec = 0;
  186. X    update.it_value.tv_usec = UPDATE_INTERVAL;
  187. X    setitimer (ITIMER_REAL, &update, 0);
  188. X
  189. X    pipe.sv_handler = SIG_DFL;
  190. X    pipe.sv_mask = 0;
  191. X    pipe.sv_flags = SV_INTERRUPT;
  192. X    sigvec (SIGPIPE, &pipe, (struct sigvec *) 0);
  193. X
  194. X    FD_ZERO (&ofdset);
  195. X    FD_ZERO (&fdset);
  196. X    FD_SET (listen_socket, &ofdset);
  197. X
  198. X    for (;;) {
  199. X
  200. X        sigsetmask (0);
  201. X
  202. X        fdset = ofdset;
  203. X        pno = select (32, &fdset, (fd_set *) NULL, (fd_set *) NULL,
  204. X            (struct itimerval *) NULL);
  205. X
  206. X        sigblock (SIGALRM);
  207. X
  208. X        if (pno < 0) {
  209. X            FD_CLR (listen_socket, &fdset);
  210. X            if (news > 0)
  211. X                FD_CLR (news, &fdset);
  212. X        }
  213. X
  214. X        if (FD_ISSET (listen_socket, &fdset) ||
  215. X            (news > 0 && FD_ISSET(news, &fdset))) {
  216. X            if (news == -1) {
  217. X                addrlen = sizeof (addr);
  218. X                news = accept(listen_socket, &addr, &addrlen);
  219. X                if (news > 0) {
  220. X                    peerdied = 0;
  221. X                    pipe.sv_handler = deadpeer;
  222. X                    sigvec(SIGPIPE, &pipe, (struct sigvec *) 0);
  223. X                    ioctl (news, FIONBIO, &on);
  224. X                    FD_SET (news, &ofdset);
  225. X                    bp = buf;
  226. X                }
  227. X            }
  228. X            if (news > 0) {
  229. X                if ((n = read (news, bp, 1)) > 0) {
  230. X                    if (*bp == '\n') {
  231. X                        *bp = '\0';
  232. X                        parseinfo (buf, display,
  233. X                            name, args);
  234. X                        if (newPlayer (news,
  235. X                            display, name, args) == 0)
  236. X                            write (news, "Ready.\n", 7);
  237. X                            printf ("%s\n", display);
  238. X                        close (news);
  239. X                        news = -1;
  240. X                    }
  241. X                    else
  242. X                        bp++;
  243. X                    playerchange = 1;
  244. X                }
  245. X                if (n == 0)
  246. X                    peerdied = 1;
  247. X            }
  248. X        }
  249. X
  250. X        if (playerchange) {
  251. X            FD_ZERO (&ofdset);
  252. X            FD_SET (listen_socket, &ofdset);
  253. X            if (news >= 0)
  254. X                FD_SET (news, &ofdset);
  255. X            pipe.sv_handler = SIG_DFL;
  256. X            sigvec (SIGPIPE, &pipe, (struct sigvec *) 0);
  257. X            playerchange = 0;
  258. X        }
  259. X
  260. X        if (doUpdate) {
  261. X            doUpdate = 0;
  262. X            redraw ();
  263. X        }
  264. X
  265. X    }
  266. X}
  267. *-*-END-of-./fsim/server.c-*-*
  268. echo x - ./fsim/scale.h
  269. sed 's/^X//' >./fsim/scale.h <<'*-*-END-of-./fsim/scale.h-*-*'
  270. Xtypedef struct {
  271. X    int    xorg;        /* x loc of bottom of scale */
  272. X    int    yorg;        /* y loc of bottom of scale */
  273. X    int    length;        /* length of scale (pixels) */
  274. X    int    orientation;    /* orientation flags */
  275. X    double    scale;        /* units per pixel */
  276. X    int    minorInterval;    /* units per minor tick */
  277. X    int    minorSize;    /* width of minor ticks (pixels) */
  278. X    int    majorInterval;    /* units per major tick */
  279. X    int    majorSize;    /* width of major ticks (pixels) */
  280. X    int    indexSize;    /* width of index (pixels) */
  281. X    double    divisor;    /* divisor on digit scale */
  282. X    char    *format;    /* output format */
  283. X    }    scaleControl;
  284. X
  285. X#define orientRight        1
  286. X#define orientHorizontal    2
  287. *-*-END-of-./fsim/scale.h-*-*
  288. echo x - ./fsim/eng.xbm
  289. sed 's/^X//' >./fsim/eng.xbm <<'*-*-END-of-./fsim/eng.xbm-*-*'
  290. X#define eng_width 64
  291. X#define eng_height 64
  292. X#define eng_x_hot 31
  293. X#define eng_y_hot 31
  294. Xstatic char eng_bits[] = {
  295. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc,
  296. X   0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x01, 0x00, 0x00,
  297. X   0x00, 0x00, 0xf8, 0x03, 0xe0, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x36, 0xc0,
  298. X   0x01, 0x36, 0x00, 0x00, 0x00, 0x00, 0x0d, 0xc0, 0x01, 0x58, 0x00, 0x00,
  299. X   0x00, 0xc0, 0x03, 0x80, 0x00, 0xe0, 0x01, 0x00, 0x00, 0xe0, 0x00, 0x80,
  300. X   0x00, 0x80, 0x03, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00,
  301. X   0x00, 0x14, 0x00, 0xc0, 0x00, 0x00, 0x14, 0x00, 0x00, 0x0a, 0x00, 0x20,
  302. X   0x01, 0x00, 0x28, 0x00, 0x00, 0x05, 0x00, 0x20, 0x01, 0x00, 0x52, 0x00,
  303. X   0x00, 0x03, 0x00, 0x20, 0x01, 0x00, 0x64, 0x00, 0x80, 0x01, 0x00, 0x20,
  304. X   0x01, 0x00, 0xce, 0x00, 0xc0, 0x00, 0x00, 0x20, 0x01, 0x00, 0x83, 0x01,
  305. X   0xc0, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x80, 0x01, 0x60, 0x00, 0x00, 0x00,
  306. X   0x00, 0x00, 0x00, 0x03, 0x50, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x05,
  307. X   0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x28, 0x00, 0x00, 0x00,
  308. X   0x00, 0x00, 0x00, 0x0a, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c,
  309. X   0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x0c, 0x00, 0x00, 0x00,
  310. X   0x00, 0x00, 0x00, 0x18, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18,
  311. X   0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x0c, 0x00, 0x00, 0x00,
  312. X   0x00, 0x00, 0x00, 0x18, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30,
  313. X   0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x06, 0x62, 0x0c, 0x00,
  314. X   0x00, 0x80, 0x31, 0x30, 0x06, 0x93, 0x12, 0x00, 0x00, 0x40, 0x48, 0x30,
  315. X   0x76, 0x92, 0x12, 0x00, 0x00, 0x40, 0x48, 0x37, 0x56, 0x92, 0x12, 0x80,
  316. X   0x00, 0x80, 0x49, 0x35, 0x76, 0x92, 0x12, 0x00, 0x00, 0x40, 0x4a, 0x37,
  317. X   0x06, 0x92, 0x12, 0x00, 0x00, 0x40, 0x4a, 0x30, 0x06, 0x67, 0x0c, 0x00,
  318. X   0x00, 0x80, 0x31, 0x30, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30,
  319. X   0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x0c, 0x00, 0x00, 0xe7,
  320. X   0x44, 0x00, 0x00, 0x18, 0x0c, 0x00, 0x00, 0x29, 0x45, 0x00, 0x00, 0x18,
  321. X   0x0c, 0x00, 0x00, 0x29, 0x6d, 0x00, 0x00, 0x18, 0x0c, 0x00, 0x00, 0xe7,
  322. X   0x54, 0x00, 0x00, 0x18, 0x18, 0x00, 0x00, 0x23, 0x54, 0x00, 0x00, 0x0c,
  323. X   0x18, 0x00, 0x00, 0x2d, 0x44, 0x00, 0x00, 0x0c, 0x28, 0x00, 0x00, 0x29,
  324. X   0x44, 0x00, 0x00, 0x0a, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06,
  325. X   0x50, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x05, 0x60, 0x00, 0x00, 0x00,
  326. X   0x00, 0x00, 0x00, 0x03, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x10, 0x80, 0x01,
  327. X   0xc0, 0x40, 0x00, 0x30, 0x06, 0x00, 0x81, 0x01, 0x80, 0x69, 0x00, 0x48,
  328. X   0x09, 0x00, 0xcb, 0x00, 0x00, 0x33, 0x00, 0x48, 0x09, 0x00, 0x66, 0x00,
  329. X   0x00, 0x25, 0x00, 0x30, 0x09, 0x00, 0x52, 0x00, 0x00, 0x0a, 0x00, 0x48,
  330. X   0x09, 0x00, 0x28, 0x00, 0x00, 0x14, 0x00, 0x48, 0x09, 0x00, 0x14, 0x00,
  331. X   0x00, 0x38, 0x00, 0x30, 0x06, 0x00, 0x0e, 0x00, 0x00, 0xe0, 0x00, 0x80,
  332. X   0x00, 0x80, 0x03, 0x00, 0x00, 0xc0, 0x03, 0x80, 0x00, 0xe0, 0x01, 0x00,
  333. X   0x00, 0x00, 0x0d, 0x40, 0x01, 0x58, 0x00, 0x00, 0x00, 0x00, 0x36, 0xc0,
  334. X   0x01, 0x36, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x03, 0xe0, 0x0f, 0x00, 0x00,
  335. X   0x00, 0x00, 0xc0, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc,
  336. X   0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  337. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  338. *-*-END-of-./fsim/eng.xbm-*-*
  339. echo x - ./fsim/getStick.c
  340. sed 's/^X//' >./fsim/getStick.c <<'*-*-END-of-./fsim/getStick.c-*-*'
  341. X/*
  342. X *    xflight : an aerial combat simulator for X
  343. X *
  344. X *    Written by Riley Rainey,  riley@mips.com
  345. X *
  346. X *    Permission to use, copy, modify and distribute (without charge) this
  347. X *    software, documentation, images, etc. is granted, provided that this 
  348. X *    comment and the author's name is retained.
  349. X *
  350. X */
  351. X 
  352. X#include "pm.h"
  353. X#include <math.h>
  354. X
  355. X/*
  356. X *  getStick :  get stick input from mouse
  357. X *        inputs Sa and Se range from -1.0 to 1.0.
  358. X */
  359. X
  360. Xint getStick (c, u)
  361. Xcraft *c;
  362. Xviewer *u; {
  363. X
  364. X    int    rootX, rootY, x, y;
  365. X    Window    root, child;
  366. X    unsigned int mask;
  367. X    double    d, fuzz;
  368. X
  369. X    if (XQueryPointer (u->dpy, u->win, &root, &child, &rootX, &rootY,
  370. X        &x, &y, &mask) == True) {
  371. X
  372. X        if (x >= 0 && y >= 0 && x < u->width && y < u->height) {
  373. X
  374. X            fuzz = (double) u->width / 48.0;
  375. X            x = x - u->xCenter;
  376. X            y = y - u->yCenter;
  377. X            d = sqrt ((double)(x*x + y*y));
  378. X
  379. X            if (d > fuzz) {
  380. X                c->Sa=(double) x / (double) u->xCenter * (d-fuzz) / d;
  381. X                c->Se=(double) y / (double) u->yCenter * (d-fuzz) / d;
  382. X#ifndef LINEAR_CONTROL_RESPONSE
  383. X                if (c->Sa < 0.0)
  384. X                    c->Sa =  - c->Sa * c->Sa;
  385. X                else
  386. X                    c->Sa = c->Sa * c->Sa;
  387. X
  388. X                if (c->Se < 0.0)
  389. X                    c->Se = - c->Se * c->Se;
  390. X                else
  391. X                    c->Se = c->Se * c->Se;
  392. X#endif
  393. X            }
  394. X            else {
  395. X                c->Sa = 0.0;
  396. X                c->Se = 0.0;
  397. X            }
  398. X            return 1;
  399. X
  400. X        }
  401. X    }
  402. X
  403. X    return 0;
  404. X}
  405. *-*-END-of-./fsim/getStick.c-*-*
  406. echo x - ./fsim/header
  407. sed 's/^X//' >./fsim/header <<'*-*-END-of-./fsim/header-*-*'
  408. X/*
  409. X *    xflight : an aerial combat simulator for X
  410. X *
  411. X *    Written by Riley Rainey,  riley@mips.com
  412. X *
  413. X *    Permission to use, copy, modify and distribute (without charge) this
  414. X *    software, documentation, images, etc. is granted, provided that this 
  415. X *    comment and the author's name is retained.
  416. X *
  417. *-*-END-of-./fsim/header-*-*
  418. echo x - ./fsim/rwy2
  419. sed 's/^X//' >./fsim/rwy2 <<'*-*-END-of-./fsim/rwy2-*-*'
  420. XRunway
  421. X4 1
  422. X1 0 -75.000000 0
  423. X2 12000 -75 0
  424. X3 12000 75.000000 0
  425. X4 0 75.000000 0
  426. X#b7b19f 4  1 2 3 4
  427. *-*-END-of-./fsim/rwy2-*-*
  428. echo x - ./fsim/droneCalculations.c
  429. sed 's/^X//' >./fsim/droneCalculations.c <<'*-*-END-of-./fsim/droneCalculations.c-*-*'
  430. X/*
  431. X *    xflight : an aerial combat simulator for X
  432. X *
  433. X *    Written by Riley Rainey,  riley@mips.com
  434. X *
  435. X *    Permission to use, copy, modify and distribute (without charge) this
  436. X *    software, documentation, images, etc. is granted, provided that this 
  437. X *    comment and the author's name is retained.
  438. X *
  439. X */
  440. X
  441. X#include "pm.h"
  442. X
  443. X/*
  444. X *  Drone flight management
  445. X */
  446. X
  447. Xint droneCalculations (c)
  448. Xcraft *c; {
  449. X
  450. X    c->prevSg = c->Sg;
  451. X
  452. X    c->Sg.x += c->Cg.x * deltaT;
  453. X    c->Sg.y += c->Cg.y * deltaT;
  454. X    c->Sg.z += c->Cg.z * deltaT;
  455. X
  456. X/*
  457. X *  Don't let drones get above 60 thousand feet
  458. X */
  459. X
  460. X    if (c->Sg.z < -60000.0)
  461. X        return 1;
  462. X
  463. X/*
  464. X *  Drone crash detection
  465. X */
  466. X
  467. X    if (c->Sg.z > 0.0)
  468. X        return 1;
  469. X
  470. X    return 0;
  471. X}
  472. *-*-END-of-./fsim/droneCalculations.c-*-*
  473. echo x - ./fsim/flaps1.xbm
  474. sed 's/^X//' >./fsim/flaps1.xbm <<'*-*-END-of-./fsim/flaps1.xbm-*-*'
  475. X#define flaps1_width 64
  476. X#define flaps1_height 32
  477. X#define flaps1_x_hot -1
  478. X#define flaps1_y_hot -1
  479. Xstatic char flaps1_bits[] = {
  480. X   0x00, 0xf0, 0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0x80, 0xde, 0xdd, 0xfd,
  481. X   0x1f, 0x00, 0x00, 0x00, 0x60, 0xef, 0xee, 0xee, 0xee, 0xff, 0x03, 0x00,
  482. X   0x70, 0x77, 0x77, 0x77, 0x77, 0xf7, 0x3f, 0x00, 0x58, 0xbb, 0xbb, 0xbb,
  483. X   0xbb, 0x7b, 0x01, 0x00, 0x48, 0xdf, 0xdd, 0xdd, 0xdd, 0x3d, 0x0f, 0x00,
  484. X   0xe8, 0xfe, 0xff, 0xff, 0xff, 0x9f, 0x3f, 0x00, 0x38, 0x00, 0x00, 0x00,
  485. X   0x00, 0x00, 0xfc, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x07,
  486. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x00, 0x00,
  487. X   0x00, 0x00, 0x00, 0x60, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  488. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  489. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  490. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  491. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  492. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  493. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  494. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  495. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  496. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  497. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  498. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  499. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  500. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  501. X   0x00, 0x00, 0x00, 0x00};
  502. *-*-END-of-./fsim/flaps1.xbm-*-*
  503. echo x - ./fsim/aim-9
  504. sed 's/^X//' >./fsim/aim-9 <<'*-*-END-of-./fsim/aim-9-*-*'
  505. X#
  506. X63 4
  507. X1 -0.9167 0 0
  508. X2 -0.9167 0.0833 0
  509. X3 -1 0.1667 0
  510. X4 -1.6667 0.25 0
  511. X5 -1.8333 0.25 0
  512. X6 -2.3333 0.8333 0
  513. X7 -2.4167 1 0
  514. X8 -2.4167 0.25 0
  515. X9 -7.5833 0.25 0
  516. X10 -8 1 0
  517. X11 -9 1 0
  518. X12 -9 -1 0
  519. X13 -8 -1 0
  520. X14 -7.5833 -0.25 0
  521. X15 -2.4167 -0.25 0
  522. X16 -2.4167 -1 0
  523. X17 -2.3333 -0.8333 0
  524. X18 -1.8333 -0.25 0
  525. X19 -1.6667 -0.25 0
  526. X20 -1 -0.1667 0
  527. X21 -0.9167 -0.0833 0
  528. X1 -0.9167 0 0
  529. X2 -0.9167 0 0.0833
  530. X3 -1 0 0.1667
  531. X4 -1.6667 0 0.25
  532. X5 -1.8333 0 0.25
  533. X6 -2.3333 0 0.8333
  534. X7 -2.4167 0 1
  535. X8 -2.4167 0 0.25
  536. X9 -7.5833 0 0.25
  537. X10 -8 0 1
  538. X11 -9 0 1
  539. X12 -9 0 -1
  540. X13 -8 0 -1
  541. X14 -7.5833 0 -0.25
  542. X15 -2.4167 0 -0.25
  543. X16 -2.4167 0 -1
  544. X17 -2.3333 0 -0.8333
  545. X18 -1.8333 0 -0.25
  546. X19 -1.6667 0 -0.25
  547. X20 -1 0 -0.1667
  548. X21 -0.9167 0 -0.0833
  549. X43 -9 0.25 0
  550. X44 -9 0.1768 0.1768
  551. X45 -9 0 0.25
  552. X46 -9 -0.1768 0.1768
  553. X47 -9 -0.25 0
  554. X48 -9 -0.1768 -0.1768
  555. X49 -9 0 -0.25
  556. X50 -9 0.1768 -0.1768
  557. X51 -9 -0.25 0
  558. X52 -9.75 -0.5 0
  559. X53 -12 -0.75 0
  560. X54 -13.5 -0.75 0
  561. X55 -12.75 -0.5 0
  562. X56 -15.25 -0.5 0
  563. X57 -19.9167 0 0
  564. X58 -15.0833 0.4167 0
  565. X59 -15.75 0.5 0
  566. X60 -12.5833 0.6667 0
  567. X61 -12.0833 0.5833 0
  568. X62 -9.833 0.5 0
  569. X63 -9 0.25 0
  570. Xwhite 21 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  571. Xwhite 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
  572. Xwhite 8 43 44 45 46 47 48 49 50
  573. Xwhite 13 51 52 53 54 55 56 57 58 59 60 61 62 63
  574. *-*-END-of-./fsim/aim-9-*-*
  575. echo x - ./fsim/missileCalculations.c
  576. sed 's/^X//' >./fsim/missileCalculations.c <<'*-*-END-of-./fsim/missileCalculations.c-*-*'
  577. X/*
  578. X *    xflight : an aerial combat simulator for X
  579. X *
  580. X *    Written by Riley Rainey,  riley@mips.com
  581. X *
  582. X *    Permission to use, copy, modify and distribute (without charge) this
  583. X *    software, documentation, images, etc. is granted, provided that this 
  584. X *    comment and the author's name is retained.
  585. X *
  586. X */
  587. X 
  588. X#include <stdio.h>
  589. X#include <math.h>
  590. X#include "pm.h"
  591. X
  592. Xint mdebug = 0;
  593. Xextern double calcRho();
  594. X
  595. Xint  missileCalculations (c)
  596. Xcraft *c; {
  597. X
  598. X    double    q, rho, CLift, CDrag;
  599. X    double    FLift, FDrag, FWeight;
  600. X    double    Vmag, angle;
  601. X    double  deltaRoll, deltaPitch, deltaYaw;
  602. X    VPoint    F, Fg, tmpPt, r;
  603. X    VMatrix turn, tmpMatrix, mtx;
  604. X
  605. X/*
  606. X *  Check for ground impact.  We do this at the beginning to permit us to
  607. X *  kill ground targets.
  608. X */
  609. X
  610. X    if (c->Sg.z > 0.0) {
  611. X        killMissile (c);
  612. X        return 1;
  613. X    }
  614. X
  615. X    trackTarget (c);
  616. X
  617. X    -- c->armFuse;
  618. X
  619. X/*
  620. X *  Re-orient the body of the missile towards it's intended target.
  621. X */
  622. X
  623. X    c->prevSg = c->Sg;
  624. X
  625. X    rho = calcRho (-(c->Sg.z));
  626. X
  627. X/*
  628. X *  Compute the resultant force vector on the missile.
  629. X */
  630. X
  631. X    Vmag = mag(c->Cg);
  632. X    q = rho * c->cinfo->wingS * Vmag * Vmag * 0.5;
  633. X    FLift = 0.0;
  634. X    FDrag = c->cinfo->CDOrigin * q;
  635. X
  636. X    if (mdebug) {
  637. X    printf ("rho = %g, FLift = %g, FDrag = %g\n", rho, FLift, FDrag);
  638. X    printf ("FThrust = %g\n", c->curThrust);
  639. X    }
  640. X
  641. X    F.x = c->curThrust - FDrag;
  642. X    F.y = 0.0; 
  643. X    F.z = 0.0; 
  644. X
  645. X/*
  646. X *  Now calculate changes in position (Sg) and velocity (Cg).
  647. X */
  648. X
  649. X    if ((c->fuel -= fuelUsed(c)) <= 0.0) {
  650. X        if (c->curThrust > 0.0)
  651. X            if (mdebug)
  652. X            printf ("Missile burnout; velocity = %g fps (%g kts)\n", Vmag,
  653. X                FPStoKTS(Vmag));
  654. X        c->fuel = 0.0;
  655. X        c->curThrust = 0.0;
  656. X    }
  657. X
  658. X/*
  659. X *  Normalize picth and heading Euler angles
  660. X */
  661. X
  662. X    if (c->curPitch > pi / 2.0) {
  663. X        c->curPitch = pi - c->curPitch;    
  664. X        c->curHeading = (c->curHeading > pi) ?
  665. X            c->curHeading - pi : c->curHeading + pi;
  666. X        c->curRoll = pi - c->curRoll;
  667. X    }
  668. X    else if (c->curPitch < -pi/2.0) {
  669. X        c->curPitch = -pi - c->curPitch;
  670. X        c->curHeading = (c->curHeading > pi) ?
  671. X            c->curHeading - pi : c->curHeading + pi;
  672. X        c->curRoll = pi - c->curRoll;
  673. X        }
  674. X
  675. X    if (c->curHeading < 0.0) {
  676. X        c->curHeading += 2.0 * pi;
  677. X    }
  678. X    else if (c->curHeading > 2.0 * pi) {
  679. X        c->curHeading -= 2.0 * pi;
  680. X    }
  681. X
  682. X/*
  683. X *  Compute transformation matricies
  684. X */
  685. X
  686. X        VIdentMatrix (&mtx);
  687. X        if (c->curRoll != 0.0)
  688. X                VRotate (&mtx, XRotation, c->curRoll);
  689. X    if (c->curPitch != 0.0)
  690. X                VRotate (&mtx, YRotation, -c->curPitch);
  691. X        if (c->curHeading != 0.0)
  692. X                VRotate (&mtx, ZRotation, c->curHeading);
  693. X    c->trihedral = mtx;
  694. X
  695. X    transpose (&c->trihedral, &c->Itrihedral);
  696. X
  697. X    craftToGround (c, &F, &Fg);
  698. X    FWeight = c->cinfo->emptyWeight + c->fuel;
  699. X    Fg.z += FWeight;
  700. X
  701. X    if (mdebug) {
  702. X            printf ("v = %g, Fg = { %g, %g, %g }\n", FPStoKTS(Vmag),
  703. X            Fg.x, Fg.y, Fg.z);
  704. X            printf ("F = { %g, %g, %g }\n", F.x, F.y, F.z);
  705. X    }
  706. X
  707. X
  708. X
  709. X/*
  710. X *  Update the missile's position and velocity.
  711. X */
  712. X
  713. X
  714. X    c->Sg.x += c->Cg.x * deltaT + Fg.x / FWeight * a * halfDeltaTSquared;
  715. X    c->Sg.y += c->Cg.y * deltaT + Fg.y / FWeight * a * halfDeltaTSquared;
  716. X    c->Sg.z += c->Cg.z * deltaT + Fg.z / FWeight * a * halfDeltaTSquared;
  717. X
  718. X    c->Cg.x += Fg.x / FWeight * a * deltaT;
  719. X    c->Cg.y += Fg.y / FWeight * a * deltaT;
  720. X    c->Cg.z += Fg.z / FWeight * a * deltaT;
  721. X
  722. X
  723. X    if (mdebug) {
  724. X        printf ("Altitude = %g\n", -c->Sg.z);
  725. X        printf ("Euler angles { %g, %g, %g }\n", RADtoDEG(c->curRoll),
  726. X            RADtoDEG(c->curPitch), RADtoDEG(c->curHeading));
  727. X        printf ("Cg = { %g, %g, %g }\n", c->Cg.x, c->Cg.y, c->Cg.z);
  728. X        printf ("Sg = { %g, %g, %g }\n", c->Sg.x, c->Sg.y, c->Sg.z);
  729. X    }
  730. X
  731. X    return 0;
  732. X}
  733. *-*-END-of-./fsim/missileCalculations.c-*-*
  734. echo x - ./fsim/flaps2.xbm
  735. sed 's/^X//' >./fsim/flaps2.xbm <<'*-*-END-of-./fsim/flaps2.xbm-*-*'
  736. X#define flaps2_width 64
  737. X#define flaps2_height 32
  738. X#define flaps2_x_hot -1
  739. X#define flaps2_y_hot -1
  740. Xstatic char flaps2_bits[] = {
  741. X   0x00, 0xf0, 0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0xde, 0xdd, 0xfd,
  742. X   0x1f, 0x00, 0x00, 0x00, 0x20, 0xef, 0xee, 0xee, 0xee, 0xff, 0x03, 0x00,
  743. X   0x30, 0x77, 0x77, 0x77, 0x77, 0xf7, 0x3f, 0x00, 0x38, 0xbb, 0xbb, 0xbb,
  744. X   0xbb, 0x7b, 0x00, 0x00, 0x28, 0xdf, 0xdd, 0xdd, 0xdd, 0x3d, 0x0e, 0x00,
  745. X   0x6c, 0xfe, 0xff, 0xff, 0xff, 0x1f, 0x1e, 0x00, 0x3c, 0x00, 0x00, 0x00,
  746. X   0x00, 0x00, 0x3c, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x70, 0x00,
  747. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0x00, 0x00,
  748. X   0x00, 0x00, 0x80, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06,
  749. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00,
  750. X   0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  751. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  752. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  753. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  754. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  755. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  756. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  757. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  758. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  759. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  760. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  761. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  762. X   0x00, 0x00, 0x00, 0x00};
  763. *-*-END-of-./fsim/flaps2.xbm-*-*
  764. echo x - ./fsim/flaps.c
  765. sed 's/^X//' >./fsim/flaps.c <<'*-*-END-of-./fsim/flaps.c-*-*'
  766. X/*
  767. X *    xflight : an aerial combat simulator for X
  768. X *
  769. X *    Written by Riley Rainey,  riley@mips.com
  770. X *
  771. X *    Permission to use, copy, modify and distribute (without charge) this
  772. X *    software, documentation, images, etc. is granted, provided that this 
  773. X *    comment and the author's name is retained.
  774. X *
  775. X */
  776. X 
  777. X#include "pm.h"
  778. X
  779. Xint    flapsDown (c)
  780. Xcraft    *c; {
  781. X
  782. X    c->flapSetting += 10.0 * pi / 180.0;
  783. X    if (c->flapSetting > c->cinfo->maxFlap)
  784. X        c->flapSetting = c->cinfo->maxFlap;
  785. X    return 0;
  786. X}
  787. X
  788. Xint    flapsUp (c)
  789. Xcraft    *c; {
  790. X
  791. X    c->flapSetting -= 10.0 * pi / 180.0;
  792. X    if (c->flapSetting < 0.0)
  793. X        c->flapSetting = 0.0;
  794. X    return 0;
  795. X}
  796. X
  797. Xvoid    flapControl (c)
  798. Xcraft    *c; {
  799. X
  800. X    if (c->flapSetting > c->curFlap) {
  801. X        c->curFlap += c->cinfo->flapRate * deltaT;
  802. X        if (c->curFlap > c->flapSetting)
  803. X            c->curFlap = c->flapSetting;
  804. X    }
  805. X    else if (c->flapSetting < c->curFlap) {
  806. X        c->curFlap -= c->cinfo->flapRate * deltaT;
  807. X        if (c->curFlap < c->flapSetting)
  808. X            c->curFlap = c->flapSetting;
  809. X    }
  810. X
  811. X    if (c->speedBrakeSetting > c->curSpeedBrake) {
  812. X        c->curSpeedBrake += c->cinfo->speedBrakeRate * deltaT;
  813. X        if (c->curSpeedBrake > c->speedBrakeSetting)
  814. X            c->curSpeedBrake = c->speedBrakeSetting;
  815. X    }
  816. X    else if (c->speedBrakeSetting < c->curSpeedBrake) {
  817. X        c->curSpeedBrake -= c->cinfo->speedBrakeRate * deltaT;
  818. X        if (c->curSpeedBrake < c->speedBrakeSetting)
  819. X            c->curSpeedBrake = c->speedBrakeSetting;
  820. X    }
  821. X}
  822. X
  823. Xint    speedBrakeExtend (c)
  824. Xcraft    *c; {
  825. X
  826. X    c->speedBrakeSetting += c->cinfo->speedBrakeIncr;
  827. X    if (c->speedBrakeSetting > c->cinfo->maxSpeedBrake)
  828. X        c->speedBrakeSetting = c->cinfo->maxSpeedBrake;
  829. X    return 0;
  830. X}
  831. X
  832. Xint    speedBrakeRetract (c)
  833. Xcraft    *c; {
  834. X
  835. X    c->speedBrakeSetting -= c->cinfo->speedBrakeIncr;
  836. X    if (c->speedBrakeSetting < 0.0)
  837. X        c->speedBrakeSetting = 0.0;
  838. X    return 0;
  839. X}
  840. *-*-END-of-./fsim/flaps.c-*-*
  841. echo x - ./fsim/exp1.xbm
  842. sed 's/^X//' >./fsim/exp1.xbm <<'*-*-END-of-./fsim/exp1.xbm-*-*'
  843. X#define exp1_width 64
  844. X#define exp1_height 64
  845. X#define exp1_x_hot -1
  846. X#define exp1_y_hot -1
  847. Xstatic char exp1_bits[] = {
  848. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00,
  849. X   0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x81, 0x00, 0x00, 0x00,
  850. X   0x00, 0x00, 0x00, 0x20, 0x84, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10,
  851. X   0x80, 0x41, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x80, 0x61, 0x00, 0x03,
  852. X   0x00, 0x00, 0x00, 0x20, 0x82, 0x20, 0x00, 0x02, 0x00, 0x00, 0x00, 0x40,
  853. X   0x80, 0x20, 0x80, 0x01, 0x00, 0x80, 0x40, 0x40, 0x80, 0x38, 0x80, 0x01,
  854. X   0x00, 0x80, 0x01, 0xa0, 0x82, 0x00, 0x40, 0x00, 0x00, 0x00, 0x01, 0x00,
  855. X   0x82, 0x22, 0x00, 0x00, 0x00, 0x00, 0x06, 0x80, 0xc4, 0x00, 0x00, 0x00,
  856. X   0x00, 0x00, 0x00, 0x00, 0x06, 0x02, 0x10, 0x00, 0x80, 0x00, 0x0c, 0x80,
  857. X   0xa9, 0x00, 0x00, 0x00, 0x00, 0x01, 0xa8, 0x10, 0x93, 0x75, 0x02, 0x20,
  858. X   0x00, 0x00, 0xe0, 0x04, 0x3e, 0x03, 0x01, 0x20, 0x00, 0x04, 0x10, 0x92,
  859. X   0x8a, 0x0e, 0x06, 0x1a, 0x00, 0x5c, 0x81, 0xf1, 0xef, 0x1b, 0x80, 0x01,
  860. X   0x00, 0x18, 0x80, 0x0c, 0xcb, 0x01, 0xa5, 0x00, 0x00, 0x60, 0x88, 0x17,
  861. X   0x43, 0x07, 0x87, 0x00, 0x00, 0xa0, 0x21, 0x79, 0xc7, 0x51, 0x23, 0x00,
  862. X   0x00, 0x80, 0x40, 0x3f, 0xeb, 0x1e, 0x07, 0x00, 0x00, 0x00, 0x40, 0x1f,
  863. X   0xef, 0xb8, 0x17, 0x00, 0x00, 0x04, 0x04, 0x06, 0x2c, 0x71, 0x06, 0x00,
  864. X   0x00, 0x08, 0x00, 0x6b, 0x5f, 0x10, 0x02, 0x00, 0x00, 0x40, 0xf9, 0x38,
  865. X   0x01, 0xbf, 0x01, 0x00, 0x00, 0x00, 0xac, 0xb3, 0x5f, 0xfd, 0x03, 0x00,
  866. X   0x00, 0x00, 0xfc, 0xb9, 0x4f, 0xa7, 0x03, 0x10, 0x00, 0x00, 0xd7, 0xac,
  867. X   0xc2, 0x9a, 0x0d, 0x04, 0x10, 0x40, 0x7b, 0xc9, 0x98, 0x79, 0x11, 0x18,
  868. X   0x00, 0xc0, 0xfa, 0x8d, 0x18, 0xcb, 0x29, 0x02, 0x00, 0x80, 0xd8, 0x0d,
  869. X   0x88, 0x0b, 0x57, 0x08, 0x00, 0xc0, 0x0c, 0x39, 0x60, 0x1b, 0x00, 0x00,
  870. X   0x00, 0xd0, 0x64, 0x97, 0xc1, 0x73, 0x18, 0x03, 0x00, 0x6b, 0x81, 0x0e,
  871. X   0x01, 0xfb, 0x0c, 0x02, 0x00, 0x80, 0xdf, 0x15, 0x81, 0x54, 0xe8, 0x02,
  872. X   0x00, 0x00, 0xde, 0xff, 0xa2, 0xd9, 0x3c, 0x00, 0x00, 0x80, 0x3f, 0xde,
  873. X   0xc2, 0xac, 0x94, 0x00, 0x00, 0x00, 0x33, 0xde, 0xec, 0x0b, 0x1e, 0x02,
  874. X   0x00, 0xc0, 0x6c, 0x17, 0xe1, 0xe7, 0x1c, 0x02, 0x00, 0x50, 0x76, 0xfc,
  875. X   0xf7, 0xfe, 0x3f, 0x00, 0x00, 0x1c, 0x5d, 0x9c, 0xfa, 0xba, 0x09, 0x00,
  876. X   0x00, 0x04, 0x63, 0xcc, 0x0e, 0x8c, 0x89, 0x00, 0x00, 0x46, 0x82, 0x90,
  877. X   0x80, 0xbb, 0x12, 0x00, 0x00, 0x02, 0xe3, 0xd7, 0x89, 0x81, 0x23, 0x00,
  878. X   0x80, 0x81, 0x21, 0x83, 0x84, 0x89, 0x03, 0x00, 0x00, 0x00, 0x04, 0xf7,
  879. X   0xcc, 0xdb, 0xe3, 0x00, 0x20, 0xa0, 0x00, 0xa6, 0x7e, 0x0b, 0xb1, 0x01,
  880. X   0x20, 0x00, 0x00, 0x19, 0x6f, 0x4e, 0x8e, 0x00, 0x10, 0x00, 0x00, 0x1c,
  881. X   0xe0, 0x53, 0x06, 0x02, 0x00, 0x00, 0x00, 0x04, 0xe7, 0xa9, 0x00, 0x02,
  882. X   0x00, 0x00, 0x80, 0x43, 0x14, 0x50, 0x00, 0x00, 0x00, 0x00, 0x00, 0x38,
  883. X   0x00, 0x88, 0x00, 0x0c, 0x00, 0x00, 0xc0, 0x00, 0x0c, 0x40, 0x00, 0x08,
  884. X   0x00, 0x00, 0x40, 0x05, 0x08, 0x20, 0x01, 0x00, 0x00, 0x00, 0x60, 0x00,
  885. X   0x04, 0x00, 0x02, 0x18, 0x00, 0x00, 0x20, 0x00, 0x04, 0x00, 0x03, 0x10,
  886. X   0x00, 0x01, 0x20, 0x00, 0x00, 0x00, 0x02, 0x10, 0x00, 0x08, 0x08, 0x00,
  887. X   0x00, 0x00, 0x02, 0x10, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x80, 0x00,
  888. X   0x00, 0x80, 0x08, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00,
  889. X   0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x04, 0x40, 0x00, 0x00, 0x10, 0x00,
  890. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00};
  891. *-*-END-of-./fsim/exp1.xbm-*-*
  892. echo x - ./fsim/tower
  893. sed 's/^X//' >./fsim/tower <<'*-*-END-of-./fsim/tower-*-*'
  894. X*-a-control-tower
  895. X60 16
  896. X1 20 20 0
  897. X2 20 -20 0
  898. X3 12 -12 -60
  899. X4 12 12 -60
  900. X5 12 12 -60
  901. X6 12 -12 -60
  902. X7 12 -12 -64
  903. X8 12 12 -64
  904. X9 12 0.25 -64
  905. X10 12 -0.25 -64
  906. X11 12 -0.25 -72
  907. X12 12 0.25 -72
  908. X13 14 14 -72
  909. X14 14 -14 -72
  910. X15 0 0 -76
  911. X16 -20 -20 0
  912. X17 -20 20 0
  913. X18 -12 12 -60
  914. X19 -12 -12 -60
  915. X20 -12 -12 -60
  916. X21 -12 12 -60
  917. X22 -12 12 -64
  918. X23 -12 -12 -64
  919. X24 -12 -0.25 -64
  920. X25 -12 0.25 -64
  921. X26 -12 0.25 -72
  922. X27 -12 -0.25 -72
  923. X28 -14 -14 -72
  924. X29 -14 14 -72
  925. X30 0 0 -76
  926. X31 20 20 0
  927. X32 -20 20 0
  928. X33 -12 12 -60
  929. X34 12 12 -60
  930. X35 12 12 -60
  931. X36 -12 12 -60
  932. X37 -12 12 -64
  933. X38 12 12 -64
  934. X39 12 0.25 -64
  935. X40 -12 0.25 -64
  936. X41 -12 0.25 -72
  937. X42 12 0.25 -72
  938. X43 14 14 -72
  939. X44 -14 14 -72
  940. X45 0 0 -76
  941. X46 -20 -20 0
  942. X47 20 -20 0
  943. X48 12 -12 -60
  944. X49 -12 -12 -60
  945. X50 -12 -12 -60
  946. X51 12 -12 -60
  947. X52 12 -12 -64
  948. X53 -12 -12 -64
  949. X54 -12 -0.25 -64
  950. X55 12 -0.25 -64
  951. X56 12 -0.25 -72
  952. X57 -12 -0.25 -72
  953. X58 -14 -14 -72
  954. X59 14 -14 -72
  955. X60 0 0 -76
  956. Xgray33 4 1 2 3 4
  957. Xgray33 4 5 6 7 8
  958. Xgray33 4 9 10 11 12
  959. Xgray33 3 13 14 15
  960. Xgray33 4 16 17 18 19
  961. Xgray33 4 20 21 22 23
  962. Xgray33 4 24 25 26 27
  963. Xgray33 3 28 29 30
  964. Xgray33 4 31 32 33 34
  965. Xgray33 4 35 36 37 38
  966. Xgray33 4 39 40 41 42
  967. Xgray33 3 43 44 45
  968. Xgray33 4 46 47 48 49
  969. Xgray33 4 50 51 52 53
  970. Xgray33 4 54 55 56 57
  971. Xgray33 3 58 59 60
  972. *-*-END-of-./fsim/tower-*-*
  973. echo x - ./fsim/weapon.c
  974. sed 's/^X//' >./fsim/weapon.c <<'*-*-END-of-./fsim/weapon.c-*-*'
  975. X#include "pm.h"
  976. X
  977. Xint selectWeapon(c)
  978. Xcraft *c; {
  979. X
  980. X    register int n, m;
  981. X
  982. X    m = c->curWeapon;
  983. X    n = (c->curWeapon + 1) % WEAPONTYPES;
  984. X    for (; n != m; n = (n + 1) % WEAPONTYPES) {
  985. X        if (wtbl[n].select != NULL)
  986. X            if ((*wtbl[n].select)(c) == 1) {
  987. X                c->curWeapon = n;
  988. X                return 1;
  989. X            }
  990. X    }
  991. X
  992. X    return 0;
  993. X}
  994. X
  995. Xint fireWeapon (c)
  996. Xcraft *c; {
  997. X
  998. X    if (wtbl[c->curWeapon].firePress != NULL)
  999. X        return (*wtbl[c->curWeapon].firePress)(c);
  1000. X
  1001. X    return 0;
  1002. X}
  1003. X
  1004. Xint ceaseFireWeapon (c)
  1005. Xcraft *c; {
  1006. X
  1007. X    if (wtbl[c->curWeapon].fireRelease != NULL)
  1008. X        return (*wtbl[c->curWeapon].fireRelease)(c);
  1009. X
  1010. X    return 0;
  1011. X}
  1012. X
  1013. Xint doWeaponDisplay (c, u)
  1014. Xcraft *c;
  1015. Xviewer *u; {
  1016. X
  1017. X    int    i;
  1018. X
  1019. X    if (wtbl[c->curWeapon].display != NULL)
  1020. X        return (*wtbl[c->curWeapon].display)(c, wtbl[c->curWeapon].w, u);
  1021. X    else {
  1022. X        for (i=0; i<3; i++)
  1023. X            strcpy (c->leftHUD[i], "");
  1024. X    }
  1025. X
  1026. X    return 0;
  1027. X}
  1028. X
  1029. Xint doWeaponUpdate (c)
  1030. Xcraft *c; {
  1031. X
  1032. X    if (wtbl[c->curWeapon].update != NULL)
  1033. X        return (*wtbl[c->curWeapon].update)(c);
  1034. X
  1035. X    return 0;
  1036. X}
  1037. *-*-END-of-./fsim/weapon.c-*-*
  1038. echo x - ./fsim/aim9m.c
  1039. sed 's/^X//' >./fsim/aim9m.c <<'*-*-END-of-./fsim/aim9m.c-*-*'
  1040. X/*
  1041. X *    xflight : an aerial combat simulator for X
  1042. X *
  1043. X *    Written by Riley Rainey,  riley@mips.com
  1044. X *
  1045. X *    Permission to use, copy, modify and distribute (without charge) this
  1046. X *    software, documentation, images, etc. is granted, provided that this 
  1047. X *    comment and the author's name is retained.
  1048. X *
  1049. X */
  1050. X 
  1051. X#include "pm.h"
  1052. X#include <stdio.h>
  1053. X#include <string.h>
  1054. X#include <math.h>
  1055. X
  1056. Xint select_aim9m();
  1057. Xint display_aim9m();
  1058. Xint getIRTarget();
  1059. Xextern int fireMissile ();
  1060. Xextern void createMissileEyeSpace();
  1061. X
  1062. XweaponDesc aim9mDesc = {
  1063. X    WK_AIM9M,
  1064. X    select_aim9m,        /* select */
  1065. X    (int (*)()) NULL,    /* update */
  1066. X    display_aim9m,        /* display procedure */
  1067. X    fireMissile,        /* fire */
  1068. X    (int (*)()) NULL,    /* fire button release */
  1069. X    };
  1070. X
  1071. X/*
  1072. X *  aim9m selection function
  1073. X *
  1074. X *  A selection function normally determines whether there are any weapons
  1075. X *  of this type on-board.  If so, and the weapon system is functional
  1076. X *  (in other words, undamaged) then return 1; otherwise return 0.
  1077. X */
  1078. X
  1079. Xint select_aim9m (c)
  1080. Xcraft *c; {
  1081. X
  1082. X    return 1;
  1083. X
  1084. X}
  1085. X
  1086. X/*
  1087. X * aim9m display function
  1088. X *
  1089. X *  Update the HUD display strings associated with this weapon system.
  1090. X */
  1091. X
  1092. Xint display_aim9m (c, w, u)
  1093. Xcraft *c;
  1094. XcraftType *w;
  1095. Xviewer *u; {
  1096. X
  1097. X    char    s[16];
  1098. X    double    d, a1, v, r, root1, root2, n, t;
  1099. X    VPoint    tmp;
  1100. X    VMatrix    m;
  1101. X    int    target, count;
  1102. X
  1103. X    count = 8;
  1104. X
  1105. X    sprintf (s, "%d AIM-9M", count);
  1106. X    strcpy (c->leftHUD[1], s);
  1107. X
  1108. X    a1 = w->maxThrust / (w->emptyWeight + w->maxFuel) * a;
  1109. X    v = mag (c->Cg);
  1110. X    a1 -= c->rho * c->cinfo->CDOrigin * v * v;
  1111. X
  1112. X    if (c->curRadarTarget >= 0 && a1 != 0.0) {
  1113. X
  1114. X    d = c->targetDistance;
  1115. X    r = c->targetClosure;
  1116. X
  1117. X    n = 4.0 * d / a1 + (r * r) / (a1 * a1);
  1118. X    if (n > 0) {
  1119. X        n = sqrt (n);
  1120. X        root1 = (- r / a + n) / 2.0;
  1121. X        root2 = (- r / a - n) / 2.0;
  1122. X        if (root1 >= 0.0)
  1123. X            if (root2 >= 0.0)
  1124. X                if (root1 < root2)
  1125. X                    t = root1;
  1126. X                else
  1127. X                    t = root2;
  1128. X            else
  1129. X                t = root1;
  1130. X        else if (root2 >= 0.0)
  1131. X            t = root2;
  1132. X        else
  1133. X            t = -1.0;
  1134. X    }
  1135. X    else
  1136. X        t = -1.0;
  1137. X    }
  1138. X
  1139. X    else
  1140. X        t = -1.0;
  1141. X
  1142. X/*
  1143. X *  See if the missiles can lock onto any target.
  1144. X */
  1145. X
  1146. X    if (count > 0) {
  1147. X        createMissileEyeSpace (c, &m);
  1148. X        target = getIRTarget (c, &m, &tmp);
  1149. X    }
  1150. X    else
  1151. X        target = -1;
  1152. X
  1153. X    if (target >= 0 && t <= 15.0)
  1154. X        sprintf (s, "LOCKED   %d", (int)(t+0.5));
  1155. X    else if (t < 0.0)
  1156. X        sprintf (s, "ARM      --");
  1157. X    else if (t <= 15.0)
  1158. X        sprintf (s, "IN RANGE %d", (int)(t+0.5));
  1159. X    else 
  1160. X        sprintf (s, "ARM      %d", (int)(t+0.5));
  1161. X
  1162. X    strcpy (c->leftHUD[0], s);
  1163. X
  1164. X    strcpy (c->leftHUD[2], "");
  1165. X
  1166. X}
  1167. X
  1168. Xextern craftType * newCraft ();
  1169. Xextern char * strdup();
  1170. X
  1171. Xvoid initaim9()
  1172. X{
  1173. X
  1174. X    craftType    *c;
  1175. X    FILE        *f;
  1176. X
  1177. X    c = newCraft();
  1178. X    c->name = strdup("aim-9m");
  1179. X
  1180. X    wtbl[0] = aim9mDesc;
  1181. X    wtbl[0].w = c;
  1182. X
  1183. X    c->CLOrigin = 0.0;
  1184. X    c->CLSlope = 4.41235;
  1185. X    c->CLNegStall = -15.0 * pi / 180.0;
  1186. X    c->CLPosStall =  15.0 * pi / 180.0;
  1187. X
  1188. X    c->CDOrigin = 0.1963494;    /* 4" radius of body */
  1189. X    c->CDFactor = -2.56694;
  1190. X    c->CDPhase = 0.0;
  1191. X
  1192. X    c->CDBOrigin = 0.0;
  1193. X    c->CDBFactor = 0.0;
  1194. X    c->CDBPhase = 0.0;
  1195. X
  1196. X    c->CMOrigin = 0.0;
  1197. X    c->CMFactor = -0.75;
  1198. X
  1199. X    c->CNOrigin = 0.0;
  1200. X    c->CNFactor = -0.75;
  1201. X
  1202. X    VIdentMatrix(&(c->I));
  1203. X    c->I.m[0][0] =  0.0;
  1204. X    c->I.m[1][1] = 0.0;
  1205. X    c->I.m[2][2] = 0.0;
  1206. X    c->LDamp =  700000.0;
  1207. X    c->MDamp = 1000000.0;
  1208. X    c->NDamp = 1000000.0;
  1209. X    c->cmSlope = -1.88;
  1210. X    c->cmFactor = -1.00;
  1211. X    c->cnSlope = 1.00;
  1212. X    c->cnFactor = 0.50;
  1213. X    c->betaStall = 15.0 * pi / 180.0;
  1214. X
  1215. X    c->wingS = 1.0;
  1216. X
  1217. X/*
  1218. X *  Assume 150.0 lbs of weight is fuel and that it burns for 20 seconds.
  1219. X *  That yields a fuel burn rate of 7.5 lbs/second.
  1220. X */
  1221. X
  1222. X    c->emptyWeight = 40.0;
  1223. X    c->maxFuel = 150.0;
  1224. X    c->maxThrust = 791.0;
  1225. X    c->spFuelConsump = 34.134;
  1226. X
  1227. X/*
  1228. X *  Three second arming delay
  1229. X */
  1230. X
  1231. X    c->armDelay = 3.0;
  1232. X
  1233. X    c->groundingPoint.x = 0.0;
  1234. X    c->groundingPoint.y = 0.0;
  1235. X    c->groundingPoint.z = 0.0;
  1236. X
  1237. X    c->viewPoint.x = 0.0;
  1238. X    c->viewPoint.y = 0.0;
  1239. X    c->viewPoint.z = 0.0;
  1240. X
  1241. X    c->crashC = 1.0;
  1242. X
  1243. X    c->muStatic = 0.0;
  1244. X    c->muKinetic = 0.0;
  1245. X    c->muBStatic = 0.0;
  1246. X    c->muBKinetic = 0.0;
  1247. X
  1248. X    c->maxNWDef = 0.0;
  1249. X    c->NWIncr = 0.0;
  1250. X    c->maxNWS = 0.0;
  1251. X    c->gearD1 = 0.0;
  1252. X    c->gearD2 = 0.0;
  1253. X
  1254. X    f = fopen ("aim-9", "r");
  1255. X    c->object = VReadObject(f);
  1256. X    fclose (f);
  1257. X
  1258. X}
  1259. *-*-END-of-./fsim/aim9m.c-*-*
  1260. echo x - ./fsim/bullet
  1261. sed 's/^X//' >./fsim/bullet <<'*-*-END-of-./fsim/bullet-*-*'
  1262. X*a-bullet
  1263. X6 3
  1264. X1 0 0 0
  1265. X2 -0.4 0.5 0
  1266. X3 -19.0 0 0
  1267. X4 -0.4 -0.5 0
  1268. X5 -0.4 0 0.5
  1269. X6 -0.4 0 -0.5
  1270. Xred 4 1 2 3 4
  1271. Xred 4 1 5 3 6
  1272. Xred 4 2 5 4 6
  1273. *-*-END-of-./fsim/bullet-*-*
  1274. echo x - ./fsim/makefile.orig
  1275. sed 's/^X//' >./fsim/makefile.orig <<'*-*-END-of-./fsim/makefile.orig-*-*'
  1276. X#
  1277. X# Makefile for acm;  Riley Rainey, 1990
  1278. X#
  1279. XLDFLAGS = -L../V/lib
  1280. XCFLAGS = -g -I../V/lib -systype bsd43
  1281. X
  1282. XOBFILES = server.o \
  1283. X      pm.o \
  1284. X      flaps.o \
  1285. X      droneCalculations.o\
  1286. X      init.o \
  1287. X      aim9m.o \
  1288. X      m61a1.o \
  1289. X      weapon.o \
  1290. X      newPlayer.o \
  1291. X      newPlane.o \
  1292. X      missile.o \
  1293. X      missileCalculations.o \
  1294. X      update.o \
  1295. X      doEvents.o \
  1296. X      getStick.o \
  1297. X      doViews.o \
  1298. X      doRadar.o \
  1299. X      placeCraft.o \
  1300. X      transpose.o \
  1301. X      doScale.o
  1302. X
  1303. Xall:    acm acms
  1304. X
  1305. Xacm:    acm.o
  1306. X    cc $(CFLAGS) $(LDFLAGS) -o acm acm.o
  1307. X
  1308. Xacms:    $(OBFILES)
  1309. X    cc $(CFLAGS) $(LDFLAGS) -o acms $(OBFILES) -lV -lX11 -lm
  1310. X
  1311. Xclean:
  1312. X    -rm core *.o
  1313. X
  1314. Xclobber:
  1315. X    -rm acm acms *.o core
  1316. X
  1317. Xtar:
  1318. X    tar cv acm acms f16 mig23 aim-9 rwy rwy2 tower mtn bullet
  1319. *-*-END-of-./fsim/makefile.orig-*-*
  1320. echo x - ./fsim/V2tgif.c
  1321. sed 's/^X//' >./fsim/V2tgif.c <<'*-*-END-of-./fsim/V2tgif.c-*-*'
  1322. X#include <stdio.h>
  1323. X#include <Vlib.h>
  1324. X
  1325. X#define INCHES    128
  1326. X
  1327. Xint    horg = 4 * INCHES;
  1328. Xint    vorg = 5 * INCHES;
  1329. Xdouble    scale = ((double) INCHES / 4.0);    /* 4 feet to the inch */
  1330. X
  1331. X#define    XAXIS    1
  1332. X#define YAXIS    2
  1333. X#define ZAXIS    3
  1334. Xint    axis = XAXIS;
  1335. X
  1336. Xextern char * optarg;
  1337. X
  1338. Xmain (argc, argv)
  1339. Xint    argc;
  1340. Xchar     *argv[]; {
  1341. X
  1342. X    VObject    *object;
  1343. X    char    *name;
  1344. X    FILE    *f;
  1345. X    int    c, i, j, k, n;
  1346. X    int    v, h;
  1347. X    VPoint    *q, tmp;
  1348. X    VMatrix     mtx;
  1349. X    VPolygon **p;
  1350. X
  1351. X    while ((c = getopt (argc, argv, "f:xyz")) != EOF) {
  1352. X
  1353. X        switch (c) {
  1354. X
  1355. X        case 'f':
  1356. X            name = optarg;
  1357. X            break;
  1358. X
  1359. X        case 'x':
  1360. X            axis = XAXIS;
  1361. X            break;
  1362. X
  1363. X        case 'y':
  1364. X            axis = YAXIS;
  1365. X            break;
  1366. X
  1367. X        case 'z':
  1368. X            axis = ZAXIS;
  1369. X            break;
  1370. X        }
  1371. X    }
  1372. X
  1373. X    f = fopen (name, "r");
  1374. X    object = VReadObject(f);
  1375. X    fclose (f);
  1376. X
  1377. X    printf ("state(0,6,0,0,0,16,1,4,1,1,0,0,1,0,1,0,1,0,4).\n");
  1378. X
  1379. X    n = object->numPolys;
  1380. X    p = object->polygon;
  1381. X    for (i=0; i<n; ++i) {
  1382. X        printf ("polygon(yellow,%d,[", p[i]->numVtces+1);
  1383. X        for ((k=0, q=p[i]->vertex); k<p[i]->numVtces; (++k, ++q)) {
  1384. X            transform (q, &v, &h);
  1385. X            printf ("%d,%d,", v, h);    
  1386. X        }
  1387. X        transform (p[i]->vertex, &v, &h);
  1388. X        printf ("%d,%d],0,0,1,0).\n", v, h);
  1389. X        ++j;
  1390. X    }
  1391. X
  1392. X    exit (0);
  1393. X}
  1394. X
  1395. Xtransform (p, y, x)
  1396. XVPoint    *p;
  1397. Xint    *y, *x; {
  1398. X
  1399. X    double    dx, dy;
  1400. X
  1401. X    if (axis == XAXIS) {
  1402. X        dx = p->y;
  1403. X        dy = p->z;
  1404. X    }
  1405. X    else if (axis == YAXIS) {
  1406. X        dx = p->x;
  1407. X        dy = p->z;
  1408. X    }
  1409. X    else if (axis == ZAXIS) {
  1410. X        dx = p->x;
  1411. X        dy = p->y;
  1412. X    }
  1413. X
  1414. X    *x = (int) (dx * scale + 0.5) + vorg;
  1415. X    *y = (int) (dy * scale + 0.5) + horg;
  1416. X}
  1417. X    
  1418. *-*-END-of-./fsim/V2tgif.c-*-*
  1419. exit
  1420. -- 
  1421. Riley Rainey            Internet: riley@mips.com
  1422. MIPS Computer Systems        Phone:    +1 214 770-7979
  1423. Dallas, Texas
  1424.  
  1425. dan
  1426. ----------------------------------------------------
  1427. O'Reilly && Associates   argv@sun.com / argv@ora.com
  1428. Opinions expressed reflect those of the author only.
  1429.